home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ TrueType Font Substitutes 2.xpl < prev    next >
Text File  |  2002-07-26  |  3KB  |  63 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\TrueType Fonts"
  5. "NAME"="Font Substitutes"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Default UI Font"
  9. "DESCRIPTION 1"="In Short: Enter the name of the font you want to use for the default UI font of Windows. If you are using Windows XP we suggest putting "Tahoma" (no quotes) in, since Windows XP is using this font everywhere else. To restore the original value once you have changed this setting, simply clear the field and apply the changes."
  10. "DESCRIPTION 2"="Long Description:"
  11. "DESCRIPTION 3"="All programs you use on your PC use Fonts. When a program wants to show a text, it asks Windows to load the font (for example) "MS Sans Serif". Before Windows loads the fonts, Windows will check it's configuration if there is a substitute (replacement) for that font. If there is a substitute for the font in question, Windows will load this substituted font instead of the original font."
  12. "DESCRIPTION 4"="An example might explain this process a little bit further. The application "SimpleApp.exe" wants to display the text "Hello!" to the user. Since until now, no font is loaded, SimpleApp.exe asks Windows to load the font "MS Sans Serif". Windows looks in it's configuration if there is a substation (replacement) for "MS Sans Serif". Windows finds a replacement, in this case "Tahoma". Therefore Windows will NOT load "MS Sans Serif" but "Tahoma". Windows will then return the font "Tahoma" to SimpleApp.exe and SimpleApp.exe will use it to display the text "Hello!"."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Based on the setting found by Chris Pirillo [chris@lockergnome.com]!"
  17. "COMMENT 2"="Default value: "Microsoft Sans Serif" (no quotes) "
  18.  
  19.  
  20. 'Declaration of some constants
  21.    sV1="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes\MS Shell Dlg"
  22. sV1bak="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes\MS Shell Dlg.X-Setup Backup"
  23.  
  24. 'Called when the Plugin is started
  25. Sub Plugin_Initialize
  26.  i=RegReadValue(sv1)
  27.  SetUIElement 1,i 
  28. End Sub
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. 'Called when the Plugin should apply the changes
  35. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  if len(s)=0 then
  38.     if RegValueExists(sV1Bak) then
  39.        sBak=RegReadValue(sV1Bak)
  40.        Call RegWriteValue(sV1,sBak,1)
  41.        Call RegDeleteValue(sV1Bak)  
  42.  
  43.        Call MsgInformation("Original value restored!")
  44.        Call SetUIElement(1,sBak)
  45.     else
  46.        Call MsgError("Unable to find the backup value. Please enter a name of a font yourself.")
  47.     end if
  48.  else
  49.    if RegValueExists(sV1Bak)=false then
  50.       sBak=RegReadValue(sV1)
  51.       Call RegWriteValue(sV1Bak,sBak,1)
  52.    end if 
  53.    
  54.    Call RegWriteValue(sV1,s,1) 
  55.  end if   
  56.  
  57.  
  58. End Sub
  59.  
  60. 'Called when the Plugin is about to be removed from memory
  61. Sub Plugin_Terminate
  62. End Sub
  63.